--------------------------------------------------------------------------------
-- This file is part of a thick Ada binding to the GNU Multiple Precision Library.
-- See <http://gmplib.org/>.
--
-- Copyright (C) 2009 Vincent DIEMUNSCH.
-- GNU General Public License.
--
-- This program is free software: you can redistribute it and/or modify it under
-- the terms of the GNU General Public License as published by the Free Software
-- Foundation, either version 3 of the License, or (at your option) any later
-- version.
--
-- This file is distributed in the hope that it will be useful, but WITHOUT ANY
-- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-- A PARTICULAR PURPOSE. See the GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License along with
-- this program.  If not, see <http://www.gnu.org/licenses/>.
--------------------------------------------------------------------------------

function GMP.Integers.Aliased_Internal_Value (U_Integer : Unbounded_Integer)
                                      return mpz_t
is begin
   return U_Integer.Value;
end GMP.Integers.Aliased_Internal_Value;
